home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / system / pc_dcl.zip / READFIL.DCL < prev    next >
Text File  |  1991-09-08  |  306b  |  26 lines
  1.         open /read /err=open_error logica 'p1'
  2. loop:
  3.         read /err=read_error /end=eof_error logica record
  4.         w record
  5.         goto loop
  6. eof_error:
  7.         close logica
  8. exit
  9.  
  10. open_error:
  11. !OPEN ERROR
  12. exit
  13.  
  14. close_error:
  15. !CLOSE ERROR
  16. exit
  17.  
  18. read_error:
  19. !READ ERROR
  20. exit
  21.  
  22.  
  23.  
  24.  
  25.  
  26.